home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / BASIC / 0007.ZIP / BASBUG.BAS < prev    next >
BASIC Source File  |  1984-01-02  |  4KB  |  123 lines
  1. 10 '***********************************************************************
  2. 20 '
  3. 30 '                  A PROBLEM LOOKING FOR A SOLUTION
  4. 40 '
  5. 50 '
  6. 60 '                        (OR A BUG IN BASIC)
  7. 70 '
  8. 80 '                          SUBMITTED BY
  9. 90 '
  10. 100 '                          JAMES P MORGAN
  11. 110 '                    1749 AMERICANA BLVD APT 23-G
  12. 120 '                          ORLANDO FLA.  32809
  13. 130 '
  14. 140 '                  WORK PH : (305) 826-7297
  15. 150 '                  HOME PH : (305) 859-5658
  16. 160 '
  17. 170 '
  18. 180 '           THIS STARTED OUT TRYING TO GET RID OF THE CURSOR
  19. 190 '         FLICKER, WHEN LOCATING TO LINE 25 AND THEN BACK TO THE
  20. 200 '         ORIGINAL CURSOR LOCATION I CAME FROM, EVEN WITH THE
  21. 210 '         CURSOR TURNED OFF (LOCATE ,,0).
  22. 220 '
  23. 230 '          WELL THE ONLY THING THAT WOULD SEEM TO WORK WAS
  24. 240 '        TO PUT THESE TWO STATEMENTS BACK-TO-BACK AT THE START
  25. 250 '        OF THE PROGRAM, THEY ARE EITHER :
  26. 260 '
  27. 270 '                       XXXX SCREEN 0,0,0
  28. 280 '                       YYYY SCREEN 0,0,0
  29. 290 '
  30. 300 '                             OR
  31. 310 '
  32. 320 '                       XXXX SCREEN 0,0,0
  33. 330 '                       YYYY SCREEN 0,1,0
  34. 340 '
  35. 350 '       THIS SEEMED TO WORK MOST OF THE TIME, DEPENDING ON HOW YOU
  36. 360 '      ENTERED "BASIC" , EITHER "A>BASIC TEST" OR "A>BASIC" AND THEN LOAD THE PROGRAM
  37. 370 '
  38. 380 '       THE REALLY WEIRD THING IS HOW THE PROGRAM RUNS. I USE
  39. 390 '     VARIOUS "LOCATE ,,X"  WHERE "X" IS EITHER 0 OR 1 TO TURN
  40. 400 '     THE CURSOR ON OR OFF.
  41. 410 '
  42. 420 '       THE PROGRAM IS SMALL AND STRAIGHT FORWARD. IT SHOULD PRINT
  43. 430 '     "ABC" CONSECUTIVELY ON LINES 1 TO 24 , IF ANY "KEY" WAS
  44. 440 '     DEPRESSED (NOTE THAT THE CURSOR IS TURNED OFF THEN BACK ON)
  45. 450 '     IF A KEY WAS PRESSED.
  46. 460 '
  47. 470 '    ON LINE 25, THERE ARE TWO MESSAGES THAT ALTERNATELY OVERLAY
  48. 480 '    EACH OTHER. SO YOU WOULD THINK, RIGHT. JUST PRESS A FEW KEYS
  49. 490 '    AND SEE WHAT HAPPENS.
  50. 500 '
  51. 510 '       !!!! WHAT HAPPENS TO THE ALTERNATING MESSAGES !!!!
  52. 520 '
  53. 530 '                       I GIVE UP
  54. 540 '
  55. 550 '    WANT TO KNOW HOW I GOT IT TO CONTINUE TO WORK RIGHT.
  56. 560 '
  57. 570 '       SIMPLY REPLACE ALL "LOCATE ,,X" WITH "LOCATE CSRLIN,POS(0),X"
  58. 580 '    OR INSTEAD OF "CSRLIN" OR "POS(0)' SPECIFY SOME COORDINATES.
  59. 590 '
  60. 600 '     IT VARIES FROM PURE SILLY TO WEIRD TO I WISH I HAD AN ASPIRIN.
  61. 610 '
  62. 620 '             MACHINE CONFIGURATION IS  :
  63. 630 '
  64. 640 '             IBMPC UNDER DOS 1.1 ALSO 2.0
  65. 650 '             FX.80 PRINTER
  66. 660 '             QUADRAM BOARD WITH 256K
  67. 670 '             IBM RS232 SERIAL BOARD (QUADRAM WOULD NOT RUN 9600 BAUD)
  68. 680 '             IBM COLOR/GRAPHICS BOARD
  69. 690 '                    PGS (PRINCETON GRAPHIS SYSTEM) COLOR MONITOR
  70. 700 '             IBM 320K AND 160K DRIVES WITH IBM ADAPTER BOARD
  71. 710 '
  72. 720 '      IF ANY ONE KNOWS OF THE PROBLEM AND/OR SOLUTION (FIX) PLEASE
  73. 730 '     LEAVE A MESSAGE ON RICH'S BBS OR DROP ME A LINE.
  74. 740 '
  75. 750 '     NOTE THAT I HAVEN'T RAN THIS ON A MONOCHROME DISPLAY YET, SO
  76. 760 '    SO I DON'T KNOW IF IT WILL DO THE SAME THING.
  77. 770 '
  78. 780 CLEAR
  79. 790 DEFINT A-Z
  80. 800 KEY OFF
  81. 810 FOR I=1 TO 10:KEY I,"":NEXT
  82. 820 ' REMOVE THE NEXT TWO CONSECUTIVE "SCREEN" STATEMENTS
  83. 830 ' AND YOU SHOULD GET THE CURSOR FLICKER BACK (MAYBE).
  84. 840 SCREEN 0,1,0
  85. 850 SCREEN 0,0,0
  86. 860 COLOR 7,0
  87. 870 CLS
  88. 880 GOSUB 1000
  89. 890 GOSUB 1060
  90. 900 GOTO 880
  91. 910 '
  92. 920 ' FOR SOME MORE WEIRD RESULTS EITHER COMMENT OUT THE NEXT "LOCATE"
  93. 930 ' (FOLLOWING THESE REMARK LINES) OR CHANGE THE LOCATE TO AN ON(1)
  94. 940 ' OR AN OFF(0) AND RUN, WATCH WHAT IS DOES NOW.
  95. 950 '
  96. 960 '   FOR SOME MORE WEIRD RESULTS... IF YOU ARE FAST ENOUGH......
  97. 970 '  DEPRESS THE "SPACE" BAR JUST ENOUGH AND QUICK ENOUGH TO "MAKE"
  98. 980 '  THE KEY. THE MESSAGES ON LINE 25 SHOULD NOT CHANGE.. IF
  99. 990 '  YOU HAVE THE  NEXT LOCATE COMMENTED OUT.
  100. 1000 'LOCATE ,,1
  101. 1010 IF INKEY$="" GOTO 1050
  102. 1020 LOCATE ,,0
  103. 1030 PRINT "ABC";
  104. 1040 LOCATE ,,1
  105. 1050 RETURN
  106. 1060 GOSUB 1080
  107. 1070 RETURN
  108. 1080 R=CSRLIN
  109. 1090 C=POS(0)
  110. 1100 LOCATE ,,0
  111. 1110 LOCATE 25,40
  112. 1120 PRINT " X ";
  113. 1130 LOCATE 25,40
  114. 1140 PRINT "BOO";
  115. 1150 LOCATE 25,60
  116. 1160 PRINT " Y ";
  117. 1170 LOCATE 25,60
  118. 1180 PRINT "TOO";
  119. 1190 LOCATE R,C,0
  120. 1200 LOCATE ,,1
  121. 1210 COLOR 7,0
  122. 1220 RETURN
  123.